home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 March / Software of the Month Club 1998 March.iso / pc / win / edu / solar / solar.exe / 0 / RCDATA / TFRMSOLAR / TFRMSOLAR.txt < prev   
Text File  |  1997-11-30  |  29KB  |  883 lines
  1. object frmSolar: TfrmSolar
  2.   Left = 182
  3.   Top = 109
  4.   Width = 740
  5.   Height = 500
  6.   Caption = 'Solar System'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Icon.Data = {<image000.ico>}
  12.   Menu = MainMenu1
  13.   Position = poDefaultPosOnly
  14.   OnClose = FormClose
  15.   OnCreate = FormCreate
  16.   OnShow = FormShow
  17.   PixelsPerInch = 120
  18.   TextHeight = 16
  19.   object Toolbar: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 732
  23.     Height = 34
  24.     Hint = 'Toolbar'
  25.     Align = alTop
  26.     BevelOuter = bvNone
  27.     TabOrder = 0
  28.     OnResize = ToolbarResize
  29.     object bevelToolbar: TBevel
  30.       Left = 0
  31.       Top = 0
  32.       Width = 732
  33.       Height = 2
  34.       Align = alTop
  35.       Shape = bsTopLine
  36.     end
  37.     object spdnew: TSpeedButton
  38.       Left = 7
  39.       Top = 6
  40.       Width = 25
  41.       Height = 25
  42.       Hint = 'New'
  43.       Glyph.Data = {
  44.         EE000000424DEE0000000000000076000000280000000F0000000F0000000100
  45.         0400000000007800000000000000000000001000000010000000000000000000
  46.         80000080000000808000800000008000800080800000C0C0C000808080000000
  47.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  48.         77707700000000000770770FFFFFFFFF0770770FFFFFFFFF0770770FFFFFFFFF
  49.         0770770FFFFFFFFF0770770FFFFFFFFF0770770FFFFFFFFF0770770FFFFFFFFF
  50.         0770770FFFFFFFFF0770770FFFFFF0000770770FFFFFF0F07770770FFFFFF007
  51.         777077000000007777707777777777777770}
  52.       ParentShowHint = False
  53.       ShowHint = True
  54.       OnClick = spbButtonClick
  55.     end
  56.     object spdOpen: TSpeedButton
  57.       Left = 32
  58.       Top = 6
  59.       Width = 25
  60.       Height = 25
  61.       Hint = 'Open'
  62.       Glyph.Data = {
  63.         EE000000424DEE000000000000007600000028000000100000000F0000000100
  64.         0400000000007800000000000000000000001000000010000000000000000000
  65.         80000080000000808000800000008000800080800000C0C0C000808080000000
  66.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  67.         7777000000000007777700333333333077770B033333333307770FB033333333
  68.         30770BFB0333333333070FBFB000000000000BFBFBFBFB0777770FBFBFBFBF07
  69.         77770BFB00000007777770007777777700077777777777777007777777770777
  70.         070777777777700077777777777777777777}
  71.       ParentShowHint = False
  72.       ShowHint = True
  73.       OnClick = spbButtonClick
  74.     end
  75.     object spdSave: TSpeedButton
  76.       Left = 57
  77.       Top = 6
  78.       Width = 25
  79.       Height = 25
  80.       Hint = 'Save'
  81.       Glyph.Data = {
  82.         EE000000424DEE000000000000007600000028000000100000000F0000000100
  83.         0400000000007800000000000000000000001000000010000000000000000000
  84.         80000080000000808000800000008000800080800000C0C0C000808080000000
  85.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770000000000
  86.         0007703300000077030770330000007703077033000000770307703300000000
  87.         0307703333333333330770330000000033077030777777770307703077777777
  88.         0307703077777777030770307777777703077030777777770007703077777777
  89.         070770000000000000077777777777777777}
  90.       ParentShowHint = False
  91.       ShowHint = True
  92.       OnClick = spbButtonClick
  93.     end
  94.     object spdPrint: TSpeedButton
  95.       Left = 90
  96.       Top = 6
  97.       Width = 24
  98.       Height = 25
  99.       Hint = 'Print'
  100.       Glyph.Data = {
  101.         F6000000424DF600000000000000760000002800000010000000100000000100
  102.         0400000000008000000000000000000000001000000000000000000000000000
  103.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  104.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  105.         88888800000000000888808888888880808800000000000008080888888BBB88
  106.         0008088888877788080800000000000008800888888888808080800000000008
  107.         0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
  108.         088888880FFFFFFFF08888888000000000888888888888888888}
  109.       ParentShowHint = False
  110.       ShowHint = True
  111.       OnClick = spbButtonClick
  112.     end
  113.     object spdView: TSpeedButton
  114.       Left = 123
  115.       Top = 6
  116.       Width = 25
  117.       Height = 25
  118.       Hint = 'View Wizard'
  119.       Glyph.Data = {
  120.         78010000424D7801000000000000760000002800000020000000100000000100
  121.         04000000000000000000120B0000120B00000000000000000000000000000000
  122.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  123.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
  124.         033333777777777773333330777777703333333773F333773333333330888033
  125.         33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9
  126.         FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000
  127.         8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0
  128.         8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0
  129.         8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000
  130.         8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF
  131.         FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000}
  132.       NumGlyphs = 2
  133.       ParentShowHint = False
  134.       ShowHint = True
  135.       OnClick = spbButtonClick
  136.     end
  137.     object spdStart: TSpeedButton
  138.       Left = 288
  139.       Top = 6
  140.       Width = 25
  141.       Height = 25
  142.       Hint = 'Start'
  143.       Glyph.Data = {
  144.         F6000000424DF600000000000000760000002800000010000000100000000100
  145.         0400000000008000000000000000000000001000000010000000000000000000
  146.         80000080000000808000800000008000800080800000C0C0C000808080000000
  147.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  148.         7777777777777777777777777777777777777770077777777777777000077777
  149.         7777777000000777777777700000000777777770000000000777777000000007
  150.         7777777000000777777777700007777777777770077777777777777777777777
  151.         7777777777777777777777777777777777777777777777777777}
  152.       ParentShowHint = False
  153.       ShowHint = True
  154.       OnClick = spbButtonClick
  155.     end
  156.     object spdProperties: TSpeedButton
  157.       Left = 181
  158.       Top = 6
  159.       Width = 25
  160.       Height = 25
  161.       Hint = 'Properties'
  162.       Glyph.Data = {
  163.         F6000000424DF600000000000000760000002800000010000000100000000100
  164.         0400000000008000000000000000000000001000000010000000000000000000
  165.         80000080000000808000800000008000800080800000C0C0C000808080000000
  166.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  167.         777700000000000077770FFFFFFFFFF077770F00F00000F077770FFFFFFFFFF0
  168.         77770F00F00000F077770FFFFFFFFFF077770FFFFFFF0FF077770F00FFF070F0
  169.         77770F070F07070007440FF07070707770440000070707777744777770707777
  170.         7744777777077777704477777770000007447777777777777777}
  171.       ParentShowHint = False
  172.       ShowHint = True
  173.       OnClick = spbButtonClick
  174.     end
  175.     object spdAdd: TSpeedButton
  176.       Left = 156
  177.       Top = 6
  178.       Width = 25
  179.       Height = 25
  180.       Hint = 'Add'
  181.       Glyph.Data = {
  182.         78010000424D7801000000000000760000002800000020000000100000000100
  183.         04000000000000000000120B0000120B00000000000000000000000000000000
  184.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  185.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  186.         333333333333333333333333333333333333333FFFFFFFFFFF33330000000000
  187.         03333377777777777F33333003333330033333377FF333377F33333300333333
  188.         0333333377FF33337F3333333003333303333333377FF3337333333333003333
  189.         333333333377FF3333333333333003333333333333377FF33333333333330033
  190.         3333333333337733333333333330033333333333333773333333333333003333
  191.         33333333337733333F3333333003333303333333377333337F33333300333333
  192.         03333333773333337F33333003333330033333377FFFFFF77F33330000000000
  193.         03333377777777777333333333333333333333333333333333330000}
  194.       NumGlyphs = 2
  195.       ParentShowHint = False
  196.       ShowHint = True
  197.       OnClick = spbButtonClick
  198.     end
  199.     object spdStop: TSpeedButton
  200.       Left = 313
  201.       Top = 6
  202.       Width = 25
  203.       Height = 25
  204.       Hint = 'Stop'
  205.       Enabled = False
  206.       Glyph.Data = {
  207.         F6000000424DF600000000000000760000002800000010000000100000000100
  208.         0400000000008000000000000000000000001000000010000000000000000000
  209.         80000080000000808000800000008000800080800000C0C0C000808080000000
  210.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  211.         7777777777777777777777777777777777777770000000000777777000000000
  212.         0777777000000000077777700000000007777770000000000777777000000000
  213.         0777777000000000077777700000000007777770000000000777777000000000
  214.         0777777777777777777777777777777777777777777777777777}
  215.       ParentShowHint = False
  216.       ShowHint = True
  217.       OnClick = spbButtonClick
  218.     end
  219.     object spdPause: TSpeedButton
  220.       Left = 263
  221.       Top = 6
  222.       Width = 25
  223.       Height = 25
  224.       Hint = 'Pause'
  225.       Enabled = False
  226.       Glyph.Data = {
  227.         F6000000424DF600000000000000760000002800000010000000100000000100
  228.         0400000000008000000000000000000000001000000010000000000000000000
  229.         80000080000000808000800000008000800080800000C0C0C000808080000000
  230.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  231.         7777777777777777777777777777777777777700007777000077770000777700
  232.         0077770000777700007777000077770000777700007777000077770000777700
  233.         0077770000777700007777000077770000777700007777000077770000777700
  234.         0077777777777777777777777777777777777777777777777777}
  235.       ParentShowHint = False
  236.       ShowHint = True
  237.       OnClick = spbButtonClick
  238.     end
  239.     object spdFast: TSpeedButton
  240.       Left = 363
  241.       Top = 6
  242.       Width = 25
  243.       Height = 25
  244.       Hint = 'Faster'
  245.       Glyph.Data = {
  246.         F6000000424DF600000000000000760000002800000010000000100000000100
  247.         0400000000008000000000000000000000001000000010000000000000000000
  248.         80000080000000808000800000008000800080800000C0C0C000808080000000
  249.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  250.         7777777777777777777777777777777777777770077777770077777000077777
  251.         0077777000000777007777700000000700777770000000000077777000000007
  252.         0077777000000777007777700007777700777770077777770077777777777777
  253.         7777777777777777777777777777777777777777777777777777}
  254.       ParentShowHint = False
  255.       ShowHint = True
  256.       OnClick = spbButtonClick
  257.     end
  258.     object spdSlow: TSpeedButton
  259.       Left = 238
  260.       Top = 6
  261.       Width = 25
  262.       Height = 25
  263.       Hint = 'Slower'
  264.       Glyph.Data = {
  265.         F6000000424DF600000000000000760000002800000010000000100000000100
  266.         0400000000008000000000000000000000001000000010000000000000000000
  267.         80000080000000808000800000008000800080800000C0C0C000808080000000
  268.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  269.         7777777777777777777777777777777777777700777777700777770077777000
  270.         0777770077700000077777007000000007777700000000000777770070000000
  271.         0777770077700000077777007777700007777700777777700777777777777777
  272.         7777777777777777777777777777777777777777777777777777}
  273.       ParentShowHint = False
  274.       ShowHint = True
  275.       OnClick = spbButtonClick
  276.     end
  277.     object spdContinue: TSpeedButton
  278.       Left = 338
  279.       Top = 6
  280.       Width = 25
  281.       Height = 25
  282.       Hint = 'Continue'
  283.       Enabled = False
  284.       Glyph.Data = {
  285.         F6000000424DF600000000000000760000002800000010000000100000000100
  286.         0400000000008000000000000000000000001000000010000000000000000000
  287.         80000080000000808000800000008000800080800000C0C0C000808080000000
  288.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  289.         7777777777777777777777770000000007777777000000000777777770000000
  290.         7777777770000000777777777700000777777777770000077777777777700077
  291.         7777777777700077777777777777077777777777777707777777777777777777
  292.         7777777777777777777777777777777777777777777777777777}
  293.       ParentShowHint = False
  294.       ShowHint = True
  295.       OnClick = spbButtonClick
  296.     end
  297.     object spdTime: TSpeedButton
  298.       Left = 395
  299.       Top = 6
  300.       Width = 25
  301.       Height = 25
  302.       Hint = 'Set Time Interval'
  303.       Glyph.Data = {
  304.         78010000424D7801000000000000760000002800000020000000100000000100
  305.         04000000000000000000120B0000120B00000000000000000000000000000000
  306.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  307.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
  308.         00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
  309.         0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
  310.         903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
  311.         9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
  312.         03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
  313.         77037F3377777773337F088887707888870373F3337773F33373307880707088
  314.         7033373FF737F73FF733337003303300733333777337FF777333333333000333
  315.         33333333337773333333333333333333333333333333333333330000}
  316.       NumGlyphs = 2
  317.       ParentShowHint = False
  318.       ShowHint = True
  319.       OnClick = spbButtonClick
  320.     end
  321.     object spdMonitor: TSpeedButton
  322.       Left = 427
  323.       Top = 6
  324.       Width = 25
  325.       Height = 25
  326.       Hint = 'System Monitor'
  327.       Glyph.Data = {
  328.         36030000424D3603000000000000360000002800000010000000100000000100
  329.         18000000000000030000000000000000000000000000000000005F5F5F404040
  330.         4040404040404040404040404040404040404040404040404040404040404040
  331.         404040404040406060603F3F007F7F007F7F007F7F007F7F007F7F007F7F007F
  332.         7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F004040407F7F00FFFF00
  333.         7F7F004000404000407F7F00BFBF00FFFF00FFFF00BFBF007F7F007F7F00BFBF
  334.         00FFFF00BFBF00404040200020400040800080800080800080800080600060BF
  335.         BF00BFBF00600060800080800080400040BFBF00600060404040400040800080
  336.         8000808000808000808000808000806000606000608000808000808000808000
  337.         8060006080008040404040004080008080008080008080008080008080008080
  338.         0080800080400040400040800080800080800080800080404040400040800080
  339.         800080800080800080800080800080800080400040DFDFDFDFDFDF5030508000
  340.         8080008080008040404040004080008080008080008080008080008080008080
  341.         00807F7F7FFFFFFFFFFFFFBFBFBF6000608000806000604040403F3F3F7F7F7F
  342.         5F3F5F8000808000806000607F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFF5F3F
  343.         5F400040BFBFBF4040406F6F6FDFDFDF9F9F9F6000606000609F9F9FDFDFDFDF
  344.         DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF4040407F7F7FFFFFFF
  345.         FFFFFF5F3F5FBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  346.         FFFFFFFFFFFFFF4040407F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  347.         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4040406F6F6FDFDFDF
  348.         DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF
  349.         DFDFDFDFDFDFDF4040407F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  350.         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4040407F7F7FFFFFFF
  351.         FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  352.         FFFFFFFFFFFFFF4040403F3F3F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
  353.         7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F5F5F5F}
  354.       ParentShowHint = False
  355.       ShowHint = True
  356.       OnClick = spbButtonClick
  357.     end
  358.     object spdCenterOn: TSpeedButton
  359.       Left = 206
  360.       Top = 6
  361.       Width = 25
  362.       Height = 25
  363.       Hint = 'Center On Body'
  364.       Glyph.Data = {
  365.         78010000424D7801000000000000760000002800000020000000100000000100
  366.         04000000000000000000120B0000120B00000000000000000000000000000000
  367.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  368.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  369.         3333333333FFFFF3333333333000003333333333F777773FF333333008877700
  370.         33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
  371.         703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
  372.         77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
  373.         07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
  374.         780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
  375.         8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
  376.         3333333773FFFF773333333330000033333333333777773333330000}
  377.       NumGlyphs = 2
  378.       ParentShowHint = False
  379.       ShowHint = True
  380.       OnClick = spbButtonClick
  381.     end
  382.     object spinZoom: TSpinEdit
  383.       Left = 663
  384.       Top = 6
  385.       Width = 59
  386.       Height = 26
  387.       Hint = 'Scales the viewing window'
  388.       TabStop = False
  389.       AutoSize = False
  390.       EditorEnabled = False
  391.       Increment = 10
  392.       MaxLength = 9
  393.       MaxValue = 999999999
  394.       MinValue = 1
  395.       ParentShowHint = False
  396.       ShowHint = True
  397.       TabOrder = 0
  398.       Value = 100
  399.       OnChange = spinZoomChange
  400.       OnDblClick = spinZoomDblClick
  401.     end
  402.     object comboName: TComboBox
  403.       Left = 480
  404.       Top = 7
  405.       Width = 178
  406.       Height = 24
  407.       Hint = 'Displays active body'
  408.       Style = csDropDownList
  409.       ItemHeight = 16
  410.       ParentShowHint = False
  411.       ShowHint = True
  412.       Sorted = True
  413.       TabOrder = 1
  414.       OnChange = comboNameChange
  415.     end
  416.   end
  417.   object StatusBar: TStatusBar
  418.     Left = 0
  419.     Top = 425
  420.     Width = 732
  421.     Height = 23
  422.     Hint = 'Status Bar'
  423.     Panels = <
  424.       item
  425.         Width = 200
  426.       end
  427.       item
  428.         Text = 'January 1st, 1997'
  429.         Width = 50
  430.       end>
  431.     ParentShowHint = False
  432.     ShowHint = True
  433.     SimplePanel = False
  434.     OnMouseMove = StatusBarMouseMove
  435.     OnResize = StatusBarResize
  436.   end
  437.   object Panel1: TPanel
  438.     Left = 0
  439.     Top = 34
  440.     Width = 732
  441.     Height = 391
  442.     Align = alClient
  443.     BevelOuter = bvNone
  444.     BorderStyle = bsSingle
  445.     TabOrder = 2
  446.     object panelView: TPanel
  447.       Left = 0
  448.       Top = 0
  449.       Width = 710
  450.       Height = 369
  451.       Align = alClient
  452.       BevelOuter = bvNone
  453.       Caption = 'panelView'
  454.       Color = clBlack
  455.       TabOrder = 0
  456.       OnResize = PanelResize
  457.       object paintView: TPaintBox
  458.         Left = 0
  459.         Top = 0
  460.         Width = 710
  461.         Height = 369
  462.         Align = alClient
  463.         Color = clBlack
  464.         ParentColor = False
  465.         OnPaint = paintViewPaint
  466.       end
  467.       object DefaultImage: TImage
  468.         Left = 10
  469.         Top = 10
  470.         Width = 129
  471.         Height = 133
  472.         Picture.Data = {<image001.bmp>}
  473.         Visible = False
  474.       end
  475.       object ImageFileNotFound: TImage
  476.         Left = 135
  477.         Top = 15
  478.         Width = 132
  479.         Height = 133
  480.         Picture.Data = {<image002.bmp>}
  481.         Visible = False
  482.       end
  483.     end
  484.     object panelHorizScroll: TPanel
  485.       Left = 0
  486.       Top = 369
  487.       Width = 728
  488.       Height = 18
  489.       Align = alBottom
  490.       BevelOuter = bvNone
  491.       Caption = 'panelHorizScroll'
  492.       TabOrder = 1
  493.       OnDblClick = panelHorizScrollDblClick
  494.       OnResize = panelHorizScrollResize
  495.       object scrollHoriz: TScrollBar
  496.         Left = 0
  497.         Top = 0
  498.         Width = 401
  499.         Height = 18
  500.         Hint = 'Horizontal Scroll Bar'
  501.         Ctl3D = False
  502.         LargeChange = 10
  503.         Max = 180
  504.         Min = -180
  505.         ParentCtl3D = False
  506.         TabOrder = 0
  507.         TabStop = False
  508.         OnScroll = scrollHorizScroll
  509.       end
  510.     end
  511.     object panelVertScroll: TPanel
  512.       Left = 710
  513.       Top = 0
  514.       Width = 18
  515.       Height = 369
  516.       Align = alRight
  517.       BevelOuter = bvNone
  518.       Caption = 'panelVertScroll'
  519.       TabOrder = 2
  520.       OnResize = panelVertScrollResize
  521.       object scrollVert: TScrollBar
  522.         Left = 0
  523.         Top = 0
  524.         Width = 18
  525.         Height = 225
  526.         Hint = 'Vertical Scroll Bar'
  527.         Ctl3D = False
  528.         Kind = sbVertical
  529.         LargeChange = 10
  530.         Max = 180
  531.         Min = -180
  532.         ParentCtl3D = False
  533.         TabOrder = 0
  534.         TabStop = False
  535.         OnScroll = scrollVertScroll
  536.       end
  537.     end
  538.   end
  539.   object MainMenu1: TMainMenu
  540.     Left = 376
  541.     Top = 35
  542.     object mnuFileMenu: TMenuItem
  543.       Caption = '&File'
  544.       ShortCut = 0
  545.       object mnuNew: TMenuItem
  546.         Caption = '&New'
  547.         Hint = 'Creates a new document'
  548.         ShortCut = 0
  549.         OnClick = MenuClick
  550.       end
  551.       object mnuOpen: TMenuItem
  552.         Caption = '&Open...'
  553.         Hint = 'Opens an existing document'
  554.         ShortCut = 0
  555.         OnClick = MenuClick
  556.       end
  557.       object mnuSave: TMenuItem
  558.         Caption = '&Save'
  559.         Hint = 'Saves the active document'
  560.         ShortCut = 16467
  561.         OnClick = MenuClick
  562.       end
  563.       object mnuSaveAs: TMenuItem
  564.         Caption = 'Save &As...'
  565.         Hint = 'Saves the active document with a new name'
  566.         ShortCut = 0
  567.         OnClick = MenuClick
  568.       end
  569.       object N2: TMenuItem
  570.         Caption = '-'
  571.         ShortCut = 0
  572.       end
  573.       object mnuPrinterSetup: TMenuItem
  574.         Caption = 'Printer Set&up...'
  575.         Hint = 'Changes page layout settings'
  576.         ShortCut = 0
  577.         OnClick = MenuClick
  578.       end
  579.       object mnuPrint: TMenuItem
  580.         Caption = '&Print...'
  581.         Hint = 'Prints the active document'
  582.         ShortCut = 16464
  583.         OnClick = MenuClick
  584.       end
  585.       object N6: TMenuItem
  586.         Caption = '-'
  587.         ShortCut = 0
  588.       end
  589.       object mnuExit: TMenuItem
  590.         Caption = 'E&xit'
  591.         Hint = 'Quits the application; prompts you to save documents'
  592.         ShortCut = 0
  593.         OnClick = MenuClick
  594.       end
  595.     end
  596.     object mnuEditMenu: TMenuItem
  597.       Caption = '&Edit'
  598.       ShortCut = 0
  599.       object mnuSetStartTime: TMenuItem
  600.         Caption = 'Set &Start Time...'
  601.         ShortCut = 0
  602.         OnClick = MenuClick
  603.       end
  604.       object mnuInterval: TMenuItem
  605.         Caption = 'Set &Time Interval...'
  606.         ShortCut = 0
  607.         OnClick = MenuClick
  608.       end
  609.       object mnuSetPointofView: TMenuItem
  610.         Caption = 'Set S&crollbars...'
  611.         Hint = 'Adjust the scroll bar positions'
  612.         ShortCut = 0
  613.         OnClick = MenuClick
  614.       end
  615.       object N8: TMenuItem
  616.         Caption = '-'
  617.         ShortCut = 0
  618.       end
  619.       object mnuViewWizard: TMenuItem
  620.         Caption = '&View Wizard...'
  621.         Hint = 'Sets the observers location'
  622.         ShortCut = 0
  623.         OnClick = MenuClick
  624.       end
  625.     end
  626.     object mnuBodyMenu: TMenuItem
  627.       Caption = '&Body'
  628.       ShortCut = 0
  629.       object mnuAdd: TMenuItem
  630.         Caption = 'A&dd...'
  631.         Hint = 'Create a new body'
  632.         ShortCut = 0
  633.         OnClick = MenuClick
  634.       end
  635.       object mnuRemove: TMenuItem
  636.         Caption = '&Remove'
  637.         Hint = 'Remove the body'
  638.         ShortCut = 0
  639.         OnClick = MenuClick
  640.       end
  641.       object N3: TMenuItem
  642.         Caption = '-'
  643.         ShortCut = 0
  644.       end
  645.       object mnuShowTails: TMenuItem
  646.         Caption = 'Show All &Tails'
  647.         Hint = 'Show tails for all the bodies'
  648.         ShortCut = 16449
  649.         OnClick = MenuClick
  650.       end
  651.       object mnuClearTails: TMenuItem
  652.         Caption = '&Clear Tails'
  653.         Hint = 'Erase all visible tails'
  654.         ShortCut = 0
  655.         OnClick = MenuClick
  656.       end
  657.       object mnuCentreOnBody: TMenuItem
  658.         Caption = 'Centre On &Body...'
  659.         ShortCut = 0
  660.         OnClick = MenuClick
  661.       end
  662.       object N1: TMenuItem
  663.         Caption = '-'
  664.         ShortCut = 0
  665.       end
  666.       object mnuProperties: TMenuItem
  667.         Caption = '&Properties...'
  668.         Hint = 'Change a bodies properties'
  669.         ShortCut = 0
  670.         OnClick = MenuClick
  671.       end
  672.     end
  673.     object mnuViewMenu: TMenuItem
  674.       Caption = '&View'
  675.       ShortCut = 0
  676.       object mnuToolbar: TMenuItem
  677.         Caption = '&Toolbar'
  678.         Checked = True
  679.         Hint = 'Shows or hides the toolbar'
  680.         ShortCut = 0
  681.         OnClick = MenuClick
  682.       end
  683.       object mnuStatusBar: TMenuItem
  684.         Caption = 'Status &Bar'
  685.         Checked = True
  686.         Hint = 'Shows or hides the status bar'
  687.         ShortCut = 0
  688.         OnClick = MenuClick
  689.       end
  690.       object mnuScrollBars: TMenuItem
  691.         Caption = '&Scroll Bars'
  692.         Checked = True
  693.         Hint = 'Shows or hides the positioning scroll bars'
  694.         ShortCut = 0
  695.         OnClick = MenuClick
  696.       end
  697.       object N4: TMenuItem
  698.         Caption = '-'
  699.         ShortCut = 0
  700.       end
  701.       object mnuFullScreen: TMenuItem
  702.         Caption = '&Full Screen'
  703.         Hint = 'Toggles full screen mode on/off'
  704.         ShortCut = 0
  705.         OnClick = MenuClick
  706.       end
  707.       object mnuZoom: TMenuItem
  708.         Caption = '&Zoom...'
  709.         Hint = 'Scales the viewing window'
  710.         ShortCut = 0
  711.         OnClick = MenuClick
  712.       end
  713.       object N10: TMenuItem
  714.         Caption = '-'
  715.         ShortCut = 0
  716.       end
  717.       object mnuNotes: TMenuItem
  718.         Caption = 'System &Notes...'
  719.         Hint = 'Shows the system notes'
  720.         ShortCut = 0
  721.         OnClick = MenuClick
  722.       end
  723.       object mnuMonitor: TMenuItem
  724.         Caption = 'System &Monitor...'
  725.         Hint = 'Shows the system Monitor'
  726.         ShortCut = 0
  727.         OnClick = MenuClick
  728.       end
  729.       object N5: TMenuItem
  730.         Caption = '-'
  731.         ShortCut = 0
  732.       end
  733.       object mnuOptions: TMenuItem
  734.         Caption = '&Options...'
  735.         Hint = 'Changes various options of Solar System'
  736.         ShortCut = 0
  737.         OnClick = MenuClick
  738.       end
  739.     end
  740.     object mnuAnimationMenu: TMenuItem
  741.       Caption = '&Animation'
  742.       ShortCut = 0
  743.       object mnuStart: TMenuItem
  744.         Caption = '&Start'
  745.         Hint = 'Start the animaton'
  746.         ShortCut = 0
  747.         OnClick = MenuClick
  748.       end
  749.       object mnuStop: TMenuItem
  750.         Caption = 'S&top'
  751.         Enabled = False
  752.         Hint = 'Stop the animation'
  753.         ShortCut = 0
  754.         OnClick = MenuClick
  755.       end
  756.       object mnuPause: TMenuItem
  757.         Caption = '&Pause'
  758.         Enabled = False
  759.         Hint = 'Pause the animation'
  760.         ShortCut = 113
  761.         OnClick = MenuClick
  762.       end
  763.       object mnuContinue: TMenuItem
  764.         Caption = '&Continue'
  765.         Enabled = False
  766.         Hint = 'Continue the animation'
  767.         ShortCut = 114
  768.         OnClick = MenuClick
  769.       end
  770.       object N7: TMenuItem
  771.         Caption = '-'
  772.         ShortCut = 0
  773.       end
  774.       object mnuSpeed: TMenuItem
  775.         Caption = 'Sp&eed'
  776.         Hint = 'Change the speed of the animation'
  777.         ShortCut = 0
  778.         object mnuExtremelySlow: TMenuItem
  779.           Caption = '&Extremely Slow'
  780.           GroupIndex = 1
  781.           RadioItem = True
  782.           ShortCut = 0
  783.           OnClick = MenuClick
  784.         end
  785.         object mnuSlow: TMenuItem
  786.           Caption = '&Slow'
  787.           GroupIndex = 1
  788.           RadioItem = True
  789.           ShortCut = 0
  790.           OnClick = MenuClick
  791.         end
  792.         object mnuMedium: TMenuItem
  793.           Caption = '&Medium'
  794.           Checked = True
  795.           GroupIndex = 1
  796.           RadioItem = True
  797.           ShortCut = 0
  798.           OnClick = MenuClick
  799.         end
  800.         object mnuFast: TMenuItem
  801.           Caption = '&Fast'
  802.           GroupIndex = 1
  803.           RadioItem = True
  804.           ShortCut = 0
  805.           OnClick = MenuClick
  806.         end
  807.         object mnuUltraFast: TMenuItem
  808.           Caption = '&Ultra Fast'
  809.           GroupIndex = 1
  810.           RadioItem = True
  811.           ShortCut = 0
  812.           OnClick = MenuClick
  813.         end
  814.         object N9: TMenuItem
  815.           Caption = '-'
  816.           GroupIndex = 1
  817.           ShortCut = 0
  818.         end
  819.         object mnuCustom: TMenuItem
  820.           Caption = '&Custom'
  821.           GroupIndex = 1
  822.           RadioItem = True
  823.           ShortCut = 0
  824.           OnClick = MenuClick
  825.         end
  826.       end
  827.     end
  828.     object mnuHelpMenu: TMenuItem
  829.       Caption = '&Help'
  830.       ShortCut = 0
  831.       object mnuHelpTopics: TMenuItem
  832.         Caption = '&Help Topics'
  833.         Hint = 'Lists Help topics'
  834.         ShortCut = 0
  835.         OnClick = MenuClick
  836.       end
  837.       object N11: TMenuItem
  838.         Caption = '-'
  839.         ShortCut = 0
  840.       end
  841.       object mnuAbout: TMenuItem
  842.         Caption = '&About Solar System...'
  843.         Hint = 'Displays program information, version number, and copyright'
  844.         ShortCut = 0
  845.         OnClick = MenuClick
  846.       end
  847.     end
  848.   end
  849.   object Timer: TTimer
  850.     Enabled = False
  851.     Interval = 40
  852.     OnTimer = TimerClick
  853.     Left = 337
  854.     Top = 35
  855.   end
  856.   object PrintDialog: TPrintDialog
  857.     Left = 442
  858.     Top = 37
  859.   end
  860.   object PrinterSetupDialog: TPrinterSetupDialog
  861.     Left = 410
  862.     Top = 37
  863.   end
  864.   object sysSave: TSaveDialog
  865.     DefaultExt = 'dat'
  866.     FileEditStyle = fsEdit
  867.     Filter = 'Data Files (*.dat)|*.dat|All Files (*.*)|*.*'
  868.     Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
  869.     Title = 'Save As'
  870.     Left = 258
  871.     Top = 37
  872.   end
  873.   object SysOpen: TOpenDialog
  874.     DefaultExt = 'dat'
  875.     FileEditStyle = fsEdit
  876.     Filter = 'Data file (*.dat)|*.dat|All Files (*.*)|*.*'
  877.     Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
  878.     Title = 'Open'
  879.     Left = 298
  880.     Top = 37
  881.   end
  882. end
  883.